   1 .BOWL-A-RAMA
   2 .BY BOB HENSEL
   3 :return 
   9 &(9)=28;&(0)=25;&(1)=25;&(2)=31;&(3)=31;BC=6;FC=0;clear 
  10 B=0;C=0;D=0;F=0;G=0;H=0;I=0;P=5;T=0;Q=0;R=0
  20 box -28,38,86,12,3;CX=-64;CY=38;print "BOWL-A-RAMA";CX=-77;CY=24;print "PLAYER 1  PLAYER 2"
  40 box -54,0,35,35,3;box -54,0,31,31,3;line -54,16,4;line -54,5,1;line -38,5,1;box 0,0,35,35,3;box 0,0,31,31,3;line 0,16,4;line 0,5,1
  50 line 16,5,1;box -27,-30,30,16,3;box -27,-30,26,12,3;box -27,5,2,54,3
 310 box 55,0,34,87,1;box 41,0,1,87,3;box 68,0,1,87,3;E=2;gosub 1000
 320 E=1
 440 CX=R-57;CY=-33;print "  ";if P>3P=0;F=F+1;Q=1;CX=-28;CY=-31;print #1,F;R=0
 450 P=P+1;if P>2Q=3;R=54
 455 if P-Q=0CX=R-65;CY=10;print " ";CX=R-47;CY=10;print " "
 460 CX=R-57;CY=-33;print "UP"
 500 if Q=1V=1;goto 550
 510 V=2
 550 A=rnd (23)+43;if TR(V)=0goto 550
 620 A=A+JX(V)
 630 box A,B-37,2,2,2;B=B+8;if B>70goto 800
 650 if A<44A=40;MU="1";goto 630
 660 if A>66A=70;MU="1";goto 630
 670 goto 620
 800 box 55,-7,26,72,1;if A<45goto 1100
 802 if T=8if A<64if A>47goto 1100
 810 if A<48goto 1020
 820 if A<51goto 1010
 830 if A<54goto 1000
 835 if A<55goto 1070
 840 if A<57if P-Q=0E=2;goto 1070
 843 if A<57goto 1070
 845 if A<58goto 1070
 850 if A<61goto 1030
 860 if A<64goto 1040
 870 if A<67goto 1050
 880 goto 1100
 900 Y=30;X=55;W=0
 910 if PX(X,Y)=0W=W+1
 920 X=X+2;if X>64goto 940
 930 goto 910
 940 X=46;Y=Y+4;if Y<43goto 910
 950 if P-Q=0W=10-W;goto 970
 955 if W=0T=10-T;goto 980
 960 W=10-T-W
 970 T=W
 980 return 
1000 box 52,34,2,2,E;box 55,38,2,2,E;box 58,42,2,2,E
1010 box 49,38,2,2,E;box 52,42,2,2,E
1020 box 46,42,2,2,E;if E#2goto 1100
1030 box 58,34,2,2,E;box 55,38,2,2,E;box 52,42,2,2,E
1040 box 61,38,2,2,E;box 58,42,2,2,E
1050 box 64,42,2,2,E;if E#2goto 1100
1060 box 55,30,2,2,E;return 
1070 box 55,35,22,16,1;if E=1goto 1100
1080 box 46,42,2,2,E;box 64,42,2,2,E;E=1;goto 1100
1100 gosub 900
1105 if Q=1J=C;K=D;goto 1120
1110 J=G;K=H
1120 if F#11J=J+T
1130 if K>0J=J+T;K=K-1;if K>1goto 1130
1140 CX=R-60;CY=-5;print #1,J;if P-Q=1goto 1200
1170 if T#10CX=R-65;CY=10;print #1,T;goto 1300
1180 CX=R-47;CY=10;print #1,"X";if F=11 P=P+1;goto 1300
1190 K=K+2;P=P+1;goto 1300
1200 CX=R-47;CY=10;if W#0print #1,T;goto 1300
1205 if T=0print #1,T;goto 1300
1210 print #1,"/";if F#11K=K+1
1300 if Q=1C=J;D=K;goto 2000
1310 G=J;H=K;goto 2000
2000 B=0;if F<10goto 3000
2010 if P-Q=0goto 3000
2030 if K=0goto 2070
2035 if K>1P=P-1
2050 P=P-1;F=11;goto 3030
2070 F=10;if P=4goto 5000
3000 if P-Q=0goto 440
3030 T=0;goto 310
5000 if TR(1)=0goto 5000
5010 goto 9
:return ;run 
